home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / utilitys / 43 / psf2pm.bas < prev    next >
Encoding:
BASIC Source File  |  1987-02-12  |  1.1 KB  |  25 lines
  1. 10    fullw 2:clearw 2:gotoxy 15,0:close
  2. 20    dh$=chr$(11)+chr$(52)+chr$(0)+chr$(88):df$=chr$(0)+chr$(0)
  3. 30    ? "PSF-PRINTMASTER converter by TCB":?
  4. 40    ? "PRINTMASTER library:";:input outlib$:?:?
  5. 50    outsdr$=outlib$+".sdr":outshp$=outlib$+".shp"
  6. 60    open "R",#3,outsdr$,16
  7. 70    field #3,16 as outgrname$
  8. 80    open "R",#4,outshp$,578
  9. 90    field #4,4 as h$,128 as o1$,128 as o2$,128 as o3$,128 as o4$,60 as o5$,      2 as f$
  10. 100   outcntr=lof(3)
  11. 110   ? "PSF file:";:input inlib$:l=len(inlib$):if l=0 then close:end
  12. 120   open "R",#1,inlib$,572
  13. 130   field #1,128 as i1$,128 as i2$,128 as i3$,128 as i4$,60 as i5$
  14. 140   get #1,1
  15. 150   ? "Graphic name:";:input grname$:l=len(grname$):if l=0 then 150
  16. 160   if l>15 then grname$=left$(grname$,15)
  17. 170   grname$=grname$+string$(15,chr$(0))
  18. 180   lset outgrname$=grname$
  19. 190   outcntr=outcntr+1:put #3,outcntr
  20. 200   lset h$=dh$:lset f$=df$
  21. 210   lset o1$=i1$:lset o2$=i2$:lset o3$=i3$:lset o4$=i4$:lset o5$=i5$
  22. 220   put #4,outcntr
  23. 230   close #1
  24. 240   goto 110
  25. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə